home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / SPOKES.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  20 lines
  1. 10  '************************************************
  2. 20  '**                  SPOKES                    **
  3. 30  '**                                            **
  4. 40  '**  19 NOV. 1982                 VERSION 1.1  **
  5. 50  '************************************************
  6. 60  '
  7. 70  SCREEN 2 : CLS : KEY OFF
  8. 80  INPUT "Number of spokes on wheel - ";N
  9. 90  ANGLE = 360 / N
  10. 100  RADIANS = ANGLE /57.2958
  11. 110  CLS
  12. 120  FOR X = 1 TO N
  13. 130  FOR Y = X TO N
  14. 140  SX = SIN(X * RADIANS) * 225 + 320
  15. 150  SY = SIN(Y * RADIANS) * 225 + 320
  16. 160  CX = COS(X * RADIANS) * 95 + 100
  17. 170  CY = COS(Y * RADIANS) * 95 + 100
  18. 180  LINE (SY,CY)-(SX,CX)
  19. 190  NEXT Y,X
  20.